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ef_hnd = pli default condition handler 
nd_hnd = condition handler for pli 
h_cnd_List 


oon 


Li$d 

Li$c 

earc lis 

t]gnoniecaret = non-local return processing 
Li$nonloc_goto = non=-loca ee processing 
Li$rvrt_cnd = revert condition handler 
Li$resignal - cause resignal of most recent condition 
LiSoncode = get most recent condition name 
LiSoncndargs - fetch ap of most recent contition 
LiSonfile = onfile bif support 

LiSonkey - onkey bif support routine 

LiSio_error 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
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ALL RIGHTS RESERVED. 
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VAX/VMS PL1 runtime Library. 
abstract: 
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This module contains the pl1 runtime routines for condition 
handling and non-local goto processing. 


author: r. heinen 18-jan-1979 


SOoOoooooo 


Modifications: 


OCOOOOCCOCOOCSOSOSOOSOSOSOOOSSOOOSOOSSOSOOVOSOOSOOOOOOOOOCOSOOSoO 


1-002 Bill Matthews 29-September-1982 

Invoke macros $defdat and rtshare instead of $defopr and share. 
1-003 Chip Nylander 25-January-1983 

Fix the ONCODE() bif. It was blown to bits y & previous 


edit, and did not return the correct results for most cases. 
The new, and correct, behavior is: 
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1) For PLIS_ENDFILE, PLIS_ENDPAGE, PLIS_FINISH, and all 
non-PLI Conditions, return the pr mary condition code. 
Note that FIXEDOVERFLOW, OVERFLOW, UNDERFLOW, and 
ZERODIVIDE are not signalled as PL/I conditions. 


2) for all other conditions (currently ERROR, KEY, 
UNDEFINEDFILE, and VAXCONDITION) search the signal 
argument List and return the last (most specific) 
condition, but ignore all instances of PLIS_FILENAME, 
PLIS_RMSF, PLIS_RMSR, and PLIS_IOERROR because they 
are “uninteresting’. 


1-004 Chip Nylander 07-February-1983 
Make floating faults visible to ON units. 
| 
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1-005 Chip Nylander 22-February-1983 


Prevent spurious error messages when a VAX condition is 
signalled and not handled: 

when calling LIBSSIGNAL from the OPTIONS(MAIN) condition 
to make PLIS_ERROR the primary error, don't pass the saved 
psi/pe to LIBSSIGNAL for those system errors that don't 
wan . 


1-006 Chip Nylander 17-March-1983 
Make SIGNAL_ERROR a local symbol rather than a global one. 
1-007 Dave Blickstein 14-February-1984 
Fixup norm_exit in PLSDEF_HND to resignal to the system 
handler when PLIG-ERROR is received with I severity. 
It was signalling FINISH before passing the error on. 
1-008 Dave Blickstein 23-May-1984 
Changed PLISOPTMAIN_HND to resignal SS$_DEBUG. This was 
done so that PL/I programs can be “Y-ed and examined with 
the debugger with the DEBUG command. Previously, SS$_DEBUG 


would be resignalied like any other error and a traceBack 
would occur followed by an image exit. 
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external definitions 
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SOOOCOCOCOCOSOOOOSOOOOOSOOOOSOOSOOSOOOSOOSOOSOSOOSOOOOOOOOOCOOOOOOOOOOOOOO 
3 § *~QOODOOOO0OO0 000 OOO OO 000 09 09 09 09 09 09 09 09 09 SII NS SINS NS NNO PAA AAAOAOAAO 
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$chfdef ; define condition handler offsets 
0 $Sdefcnd ; define condition handler block 
0 $deffcb ; define runtime file control block 
° Sdefstk ; define runtime stack 
$fabdef ; define fab offsets 
; 0 $Srabdef ; define rab offsets 
0 Snandef ; define nam offsets 
000 $sfdef ; define stack offset 
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0 115 
118 5 
° 148 ; local definitions 
00000000 0000 119 ° zerodiv = 0 
00000004 0 120 anycond = 4 
00000008 121 intovf = 8 
0000 138 
88 1 
8 124 rtshare 
00 125 
4 ! § table of subscript range message numbers 
000 128 subscript_table: 
00000000" 0000 129 .Tong pli$_subrange 
00000000' 0004 130 long pli$-subrangel 
00000000" 0008 131 long pli$_subrange 
00000000' Bays 1 ¢ long pli$_subrange 
00000000" 001 1 long pli$_subrange4 
0000000° 0014 134 long pli$_subrangeS 
0000000" 0018 135 long pli$_subrange 
00000000° 001C 136 long pli$_subrange 
00000000" 0020 137 Long piss subrange8 
00000000 00000000 00000000 00000000 0024 138 long ,0,0,0,0,0,0,0,0,0,0 
00000000 00000000 00000000 00000000 0034 
00000000 00000000 00000000 0044 
00000000" it 9 139 -long pli$_substr 
00000000° 0054 140 -long pli$_substr 
ae 
0058 128 ; table of hardware-raised errors that need the PSL and PC returned to DCL 
0058 144 ; for FAO formatting. 
bee 145 ; 
05 146 hardware_table: 
00000000' 0058 14 - Lon ss$_intovf 
00000000' Baae 148 long ss$_intdiv 
00000000" 0060 149 long ss$_fltovf 
94 4 064 150 long ss$_fltovf_f 
00 * 0068 151 long ss$_fltund 
00000000' B86 13 long ss$_fltund_f 
0000000" 00 15 -long ss$_fltdiv 
00 0° 0074 154 -long ss$_fitdiv_f 
00 * 0078 155 -long ss$_decovf 
rf 138 -long ss$_subrng 
1 -long ss$_accvio 
4 158 -long ss$_roprand 
8 159 -long ss$_radrmod 
C 160 -long ss$_opcdec 
0 161 -long ss$_opccus 
094 16¢ -long 0 ; must be Last 
098 16 
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‘ -sbttl pliS$def_hnd - pli1 default condition handler 
; pli$def_hnd - pli default condition handler 
; functional description: 
This routine is the condition handler for all pl1 main programs. 
The action is to search the normal on unit List in the same way 
; as the standard handler. If a condition handler was found then the 
; condition is continued. If no condition handler was found then error is signaled. 
inputs: 

condition argument List 

outputs: 


none, but the program may be aborted. 
Two catty points are provided so that the remainder of the runtime 
n 
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186 
189 
i 
i 
198 
174 
178 
7 
195 
180 
181 
i 
B89 : : can distinguish the highest level options main handler 
OFFC 0098 1 § entry pliSoptmain_hnd,*m<r2,r3,r4,r5,75,r6,r7,78,r9,r10,r11> 
02 11 OOS 1 b def_hnd_common ;_use common code for handler 
OFFC OO9C 188 sentry pliSdef_hnd,“*m<r2,r3,r4,r5,r6.r7,78,79,r10,011>; 
4943 : ; def _hnd_common: 
443 13) > search this frames condition List for an on unit 
O12A 30 OO09E 138 y bsbw search _cnd_list ; look for a handler in this frame 
52 04 aC 00 Boag 133 mov l chf$l_sigarglst(ap),r2 ; address the signal arg List 
Boag 196 : if an on unit was found then continue 
00000000°8F 50 D1 OOAS 198 cmpl r0,#ss$_continue ; handler found? 
01 12 QOAC 199 bneq 10$ ; if neq then perform default action 
04 OQOAE 00 ret 3; continue after user handler 
Doar 502 
OOAF $8 : perform default action based on the condition value 
DOAr 08 ios: 
0000°8F 06 A2 BI OOAF 206 "  empw ghtSl_sig_name+2(r2) .acpli$ errora-16>; pl! defined? 
F 12 008 0 bneq $ : ; signal pli error condition 
50 (04 Ae ga 3 EF 4 4 extzv #3,#10 chfst_sig name(r2),r0; get message number 
0000 ° 8F sf 3 cmpw r #<pli$_tinis U*xtff>a-$: finish? 
F 3 C 10 beql 23$ : if eql then continue 
C4 11 case r0,<- 
C4 1 signal_error,- 3; never signaled 
C4 1 end_of_page,- ; end page 
C4 14 signal_error,- ; end file 
C4 15 signal_error,- ; unknown file 
C4 1g signal_error,- 3 key 
¢? ; nora_exit= ; error signaled, so exit 
6 Ol + 19 brb signal_error ; all others cause error signal 
06 $f t non pl1 condition 
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D + 
00000000'8F 04 ag » bg 208: gnot hfSl_sig_name(r2) ,#ss$_ 4 Fy eng AR underflow trap? 
e en 
00000000'8F 04 Ae 9 e) 5 cap gist. sig_name(r2) ,#ss$ wi tgynd: ae “itoattng under t lew fault? 
e hen ignor 
00000000'8F 04 A t 56 5 cap ae _Sig_name(r2) ,#ss$ -debug tin : at: x. ivate debugger 
ne : 
00 if re § Bree ef h_si nal_return ; then resignal 
00000000'8F 04 A2 1D ( F7 0 228:  cmpzv 4p ® 9 ch¥$l_Sig_ name(r2), #<ss$_unwinda-3>; unwind? 
A 101 1 bneq sien error ¢ all others get default handling 
Paes ++ $9 1 103 ; ges: jsb pl $$térm_prog ; shut off program exit control 
3 109 5$: movzwl #ss$_continue,r0 3 continue 
it PS, 
19F § : end of page 
0 F 8 end_of_page: 
52 O8 AC OD *0F 9 movl chf$l_mcharglst(ap),r2 ;get mech args 
5c §60C as D gti3 40 mov chf$l_mch_savr0(r )iap iset feb addr 
5 D4 011 4) clrl rd set no re 
51 01 DO 0119 6 mov | #i,e1 set to put page 
52 00 7D Bie 4 movq #0,r2 zset no skip, no options 
54 D4 OTF 44 clrl r4 sset no format 
00000000'GF 16 0121 45 sb g*pli$putfile_ré :do put page 
00000000"GF 1 4 4 6 mp g*pli$put_end_ré ifinish it off and return 
3 4 rt 3 signal error condition 
61 D 50 signal_error: 
10 AD DD 012d 51 pushl = stk_l -pc( fp) ;Save system pc/psl 
04 AD OD 3 : 26 pushl = stk_l“psl (fp) 
0 $¢ DO 01 5 movi chf$l_sig_ args(r2) 0 0} iget size of arg List 
10 AD FC A246 DO 0136 54 movl chf$l-sig_ rargsc4(ré) tr O],stk_l hei it?. :set sriginet pc/psl 
04 A 240 od0 013¢ 55 mov l chf$l_ 3819, aryetrg? r0J,stk_l- *Ps 
53 F153 CF 4) 141 56 moval hardware_fable,r ; Set to top of hardware error table 
63 OD 146 57 10$: tstl (r3) ; any more? 
0c 13 0148 58 beql 30$ 3 no, so chrey away pc/psl 
83 04 A2 Di O16A 59 cmpl chf$l_sig_name(r2),(r3)+; need pc/ pol 
F612 opt 60 bneq 10$ : if not, loop back to check again 
os we SS ti a 61 add\3 $6 r0,r3 :get number of args for signal 
06 11 0154 re brb 50$ : rejoin common 
53 3 156 63 30$: mov | r0,r3 ; copy number of args for signal 
50 O02 ¢C 159 64 subl #2,r0 zset number of args to copy less pc/psl 
624 Dp 15C 265 50$:  pushl chf$l_sig_args(r2)Cr0] copy args to stack 
FA 5 7 15F 66 sobgtr r0,50$ ; 
0 odd 0162 6 pusht #0 :set no args for error 
eer. dl F DD 0164 68 pushl opt is_error set error 
50 O4A 0 20 EF Ht o extzv # #3chf$l_sig_name(r2), rQ; get severity of poovtqus condition 
6—€ 0 00 0 FO Q1 0 insv r0,#0,43,(sp) insert as severity 9f signal 
D Be 17 71 clrl (fp) :disappear our cond ston Pasdles 
° C Q17 i clre re iset no secondary arguments 
00000000 ° GF FB 0179 7 alls g*lib$signal signal error 
180 74 error “signal: :if we come back, the signal was handled 
% ae 44 : ? o pont stk. L t-Pst ftp? restore system pc/psl 
r) 
50 00°8F Be : i? novzbl iiss° “font inue,r0 iset to continue 
re sreturn 


def_hnd = pli default condition hand 6-SEP-1984 PLIRTL. SRE CP LICONDIT.MAR;1 


18D fi ; 
! 4 ; end the program 
18D | norm exit: 
06 04 A2 03 90 43 ‘1 cmpzv - #0, #3,chf$l_sig_name(r2),#4; fatal severity? 
B 1 4 iss _— finish signa@l_return ; # leq then 
00000000°GF 16 01 5 sb 9 plisstera prog ; shut off exit. handler finish condition 
10 AD DD 0198 $ pushl stk _l_pc(fpy jSave system pc/psl 
04 AD 4 HH pushl = stk_l_psl (fp) ‘ 
10 AD BAF — OIA 8 movab b*10$7stk t pc (fp) poe unrecognized pc/psl 
AD oC 1m 9 movpsl stk Laps tt6 
0000: ‘BF DD OIA 9 pushl #plT$_finis : : signal finish condition 
88 D4 OQTAF 7] clrl (fp) ; remove troudle handler 
0000000 * GF 2 181 38 10 calls #1,g*lib$signal 
AD 8ED 188 9 popl otk .t pst) fp) irestore system pc/psl 
10 AD 8ED 18 32 popl stk_l_pc(fp 3 
i 3% ; print messages via system or next handler 
1¢ 98 finish_signal_return: 
50 0000'8F 3c OIC 99 movzwl #ss$_resignal,r0 i get the messages 
04 OIC 00 ret ; Just return 
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-sbttl pliScnd_hnd = condition handler for pl! 
pli$cnd_hnd = condition handler for pl! 
functional description: 


This routine toy + conditions for pl! eroprape by searching the 
current condition handler List for a control block which specifies 
the same enable. The first control block with a matching enable is 
used to call the associated condition handler routine. 

If no handler is found then the condition is resignaled. 


inputs: 


exception stack frame 

The signaller's rl is meaningful 
If the condition relates to a fi 
of the file. 


on known pl1 conditions. 


outputs: 
none 


ICONDIT.MAR; 1 


l 
le then that rl is the fcb address 


If an error occurs while handling the yi he a fatal exit is taken. 


A signal will not work because control will return here. 


The call te the condition handler is done with the argument List of the condition. 


-enabl sb 

sentry pli$cnd_hnd,*m<r2,r3,r4> ? , 
bsbb search_cnd_Llist 3; search the condition ‘ist 
ret ; done 
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3 subroutine to search the establisher's condition handler List 
Search_cnd_List: 
m 


WW 
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6D sacl 9E ovab A aa canarias tae: ; set up fatal exception vector 


1¢B 
1¢8 
1¢B 
1¢B 
ig 
7C O10 4 clrq -(s 3; zero stack locals 
7E D4 H rk clrl my : 
2} 4 AC OD 1D 44 mov l chf$l_sigarglst(ap).rl ; get the signal value 
2 4 Al OD 1D8 45 mov chf$l_sig_name(r1),r : 
61 OD 1D¢ +8 movl chf$l_sig_args(r1),r4 =; get argument numbers 
54 FC A144 «=6DE «OO1DF «34 moval chf$tisig_ar s-4(r{)€r4).r4; address the pc 
3 BA D 1E4 rt: mov chf$l_mcharglst(ap).r3 ; address arg List with fp of establisher 
0 CA D 18 4 mov | chf$l_mch_savr cr) 10 get fcb addr if its there 
1 4 A dO 3 29 1$: movl chf$l_mch_frame(r3),r1 ; 
Olt 26 i search condition List in that frame 
53 F4 Al 9E OTF 54 movab stk_l_cend_lst(r1),r3 ; address condition handler control List 
53 6 09 O1F4 55 5$: mov l Cr 33, FS i 3 get next block 
0 12 O17 2$ bneq 10$ : 1f eql then done 
00D 31 O1F9 5 brw 40$ ; resignal condition 
08 A DS OFC 28 108: tstl cnd_l_addr(r3) 3; reverted condition hanaler? 
F 13 8304 2B beql 5$ : if eql then yes 
0 4 2) 3; look for fixed overflow handler ( 
00000001'8F 04 A3 1D O03 ED : 01 $8 cmpzv) #3, #29, cnd_l_enabl (r3) ,#<pli$_zerodiv+8>a-3; PLI fixed overflow? 
09 ig 0208 64 bneq 15$ : if neq then no 
08 AE 05 020d 65 tstl intovf(sp) ; handler found already? 
4 is 0 19 66 bneq 15$ 3s if neq then yes 
08 AE 3.06~#00 «60 \¢ 7H mov | r3,intovf(sp) ; save for default case 
3; lock for an anycon on handler 
19 $° lock f dition handl 
00000000°8F 04 A3 1D O03 €ED 16 71 15$: cmpzv #3, #29, cnd_l_enabl (r3) ,#<plLi$_anycond>a-3; PLI any condition? 
08 ig ie bneq 20$ :; if neq then no 
04 AE OD 7 tstl gazcendtap) ; already found in List? 
96 12 74 bneq 0 3s tf ace then yes 
mov r5,anycond(sp ; save for default condition 
04 AE dO 7 75 { 3 d(sp) defaul diti 
3, «11 0 : id: br 25$ > continue 
4 4 3; look for zero divide handler 
00000000'8F 04 43 1D O38 ED 3 0 208: cmpzv rt #29,cnd_l_enabl (r3) ,#<pli$_zerodiv>a-3; PLI zero divide 
07 ig 1 bneq 25$ : if neq then no 
D 9 § tstt zerodiv(sp) 3; this condition enabled already? 
is B : bneq 25$ : if neq then yes 
6E D iB r mov l r3,zerodiv(sp) 3 save special dual value case 
" § ; look at secondary argument if PLI condition 
00000000'8F 52 10 10 eB 4 3 258: cmpzv) s- #16, #16, 2, #<<pli$_error>a-16>; pli defined condition signaled? 
4 1 4 beql 298 : if eql then yes 
52 O4A D1 48 0 cmpl gng_tenabl (r5) .r2 ; enabled? a 
0 13 4F 91 beql 0$ : if eql then signal condition 
00000000°8F O4A D1 0251 92 cmpl cnd_l_enabl(r3) ,@ss$_fltovf; enabled for overflow? 
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00000000 * 8F 
00000000°8F 04 
00000000° 8F 
00000000°8F 04 


: 
00000000 ' 8F 
" 


FF 
7c. UmhCUWD 
8E O04 AS 10 
00000000'8F 04 A3 1D 4 
50. OC 
D 
6D 
04 AD 
10 AD 
10 AD 64 
04 AD 04 AG 
08 BS 6C 


6D 0321°CF 
10 AD 


04 AD 
50 0000'°8F 
SE = OC 


s § 
0000G000°8F 52 
00000000 * &F 33 
00000000 ° 8F 32 
53 08 a 
00000000 ' 8F i 
00000000 ' 8F oF 
5304 a 

Ph od: 


condition handler routines 


NESSESISHL QTNE:SG RATE See. 26? 
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3 no = check next fault 
; yes - is this an overflow fault? 
es signal condition 

for underflow? 

3 no - check next fault 

; yes - is this an underflow fault? 
signal condition 

for divide? 

3 no = go find next handler 

3: yes - is this a divide fault? 

; if yes signal condition 

3; look for next handler 

3 get internal bits 

sp)+; match in pli bits? 


r neq ~ no 
& #29 ,end_\onabl (75) .A<pt 15, beye- >; file type? 


3 gtru then no additional arg 
3 same secondary argument? 
: if neq then no 


; disable fatal exception vector 
; save system's psl 

; save system's stack key 

set pc/psw to original 

change psw ~~ 

call handler with our arg List 
condition handler stack key 
setup a condition handler 
restore system's stack key 
restore system's psl 

set up to continue 

purge stack 

and do so 


Bete Ge Se Ge Ge Se Se Ge Se Se Se & 


get. zero divide handler 
f eql then none 

ged divide trap? 

if yes then merge 

floating divide fault? 

f yes then merge 

integer divide? 

eql then merge 

integer overflow? 
if eql then no handler found 
decimal overflow? ’ 
if eql then handle condition 
integer overflow? 
if eql then handle 
any condition handler? 
if neq then handle 
set up to continue signal 
purge stack 


search _cnd_List 
1 9 93 bneq 26% 
of 3 oe gapt ; #ss$_fltovf_f : 
eq i ify 
p] é 38 268: gap nd_l_enabl(r3),#ss$_fltund; enable 
ne 
of 8 38 capt r2,#ss$_fltund_f 
1 9 beql i if yes 
D1 7 rth 278: cmpl nd_l_enabl(r3),ass$_fltdiv; enable 
of gi d : a ; #ss$_fltdiv_f 
cmp ss$_ ve 
} 88 4 g beql $ 
1 A 404 ges: brw 
EF D 405 298: extzv #3,#29,r2,-(sp) 
58 § 4 $ cmpzv -#3,#29,cnd_l_enabl (r3), ¢ 
rd 9 40 bneq 
ED 9A 408 cmpzv 
1A AS 409 bgtru 
D1 A6 410 cmp gng.t.arg(r3).r0 
12 4 $1) bneq 8$ 
8 rr. ‘i$ ; call with rl as establisher's frame pointer 
O2AC 415 $0$: clrl  (f 
QO2AE 416 pushl__ st -{-pst (fp) 
0281 417 pushl stk l_pc(fp 
DO 0284 418 mov (r4),Stk_l_pe( fp) 
BO 0288 419 movw (r4§,stk_U_psl (fp) 
02BD 420 callg (ap),a@cnd-l~addr(r3) 
8564 421 norm_signal: 
9E O2C1 4 ; movab w*fatal_exception, (fp) 
D C6 4 popl stk_l_pc(fp) 
D CA 424 popl stk l_psl(fp) 
3 cr 425 35$: movzwl #ss$_Continue,r0 
C D 426 addl 12,Sp 
0 D6 ? i rsb 
0207 $$3 3 no condition handler found - check defaults 
09 0207 431 4os: mov l zerodiv(sp).r3 
1 Q2DA $38 eql , 
Di =D 43 cmpl r2,#ss$_fltdiv 
13 E 434 beql 
D1 «Ze 435 empl r2,#ss$_fltdiv_f 
13 EC 4 § beql 
D1 E 4 cmpl r2,#ss$_intdiv 
13 F 438 beql 
09 F 439 45$: mov l intovf(sp),r3 
13 FB 440 beql 0$ 
D1 FD = 441 capl r2,#ss$_decovf 
13 4 +48 beql 
D1 6 44 cmpl r2,#ss$_intovf 
13 0 6 beql $ 
+4 OF 445 50$ mov l anycond(sp),r3 
1 13 rr. neq 
3¢ 1 447 55$ movzwl #ss$_resignal,r0 
co 1A 44 ddl #12,Sp 
05 1D 44 rsb 


Sete Se Ge Ge Se Ge Ge Se Ge Ge te Ge Fe Ge Ge Ge Ge Ge 
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ea = condition handler routines 
1 search _cnd_l 


FF8B 31 


0000 


COWW SS Som 


60$: brw 30$ 3 signal contdition 

; exception handler for exception hancler 

fatal ~exception: 
ord 0 


fatal_er cor 
Sexit Ss #pli$_error ; fatal error 


-dsabl lsb 


MVIVIMIUIVIVIVIVN ow 
"OO 


DWONOUS 


Po ot of ot ot ot tt ee 
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ss 
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oe¢ ‘ esbttl pli$nonloc_ret = non-local return processing 
ies : pli$nonloc_ret = non-local return 
ret ; functional description: 
169 3; This routine is entered via a jmp from a pl! coores when a non-local 
468 ; return occurs. The action is to unwind the call § 
£33 ; The unwind is done in a manner similar to that of +S SSUNWIND. 
$f) ; At each stack frame that is passed, the SS$_UNWIND condition is signaled. 
138 ; » rovision is made tor protecting r0/ri from restoration by a call mask. 
0330 474 ; PL/I does not save r0/r1 
O330 | 40G f i 
3 inputs 
bae5 299 : 
03 478 ; r0/ri return value if a 
0330 479; r2 = number of frames to or 
0330 480; 
O335 481 ; outputs: 
0330 rt: 3 
0330 483; none 
0330 484 ;- 
0330 485 pli$nontoc. ret:: : not a call entry 
7E 50 7D 0330 486 movg r0,-(sp) 3 save return value and regs 
50 5D DO 0333 487 movl fp,r0 3; copy current fp 
0336 488 ; 
bese rt 3; check for proper frame 
10 AO «ATTAF «09E «=(0336)=— 491 108: soves Awan > teh f stk_l be (r0); force return in this module 
50 OC AO D0 0338 $36 mov | sok! ; Link to next frame on stack 
60 10 03 OD O33F 49 robew # Wsthe tr o> “(r0) 3 frame accessible? 
3 13 0343 = 494 eql fatal error ; if egl then insuff frames 
i EE 5 F5 0345 495 sobgtr r2,1 3 continue until done 
: 0348 496 
0348 497 ; 
0348 498 ; proper frame found 
0348 499; 
50 8E&€ 7D 0348 500 movq (sp)+,r0 3 restore return value 
04 0348 501 ret 3 unwina stack and goto 


—ZTOMMIODZ BK KOCH TO MMOOWZ SF KOCH LO MMOOW!™S Er ACH TO MM™MOOWOZ SE ACK TO ™MIOW 
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4C 3 3+4 
rt ¢ ; pliSoptmain_ret - return in options main block 
ac : ; functional description: 
4C¢ 3 : This routine performs a return inside an options main block 
4¢ ; The action is to return unless this is the outermost options main block. 
re: 19 ; If it the outermost block then a STOP is done. 
4C 512 : inputs: 

4C 18 5 a2 
4C 14; none 
SHEE output 

; outputs: 

see i$ 3 4 

034C¢ 18; none - r0,r1 are preserved for function returns 

034C ah i-- 

8 rt: 331 pliSoptmain_ret:: 

0 rt: 5 ¢ : if this frame is the options main frame then STOP otherwise just return 

FO48 CF OF $ 4¢ : = pushab w*pl?Soptmain_hnd ; address options main handler 
60 8€ O01 $329 525 cmpl (sp)+,stk_l_cnd_hnd(fp) ; this frame the outermost? 
09 = «12 Be2e 268 bneq 5$ 3; if neq then return 
$322 528 ; cause a stop to occur 
0355 2¢8 3 
50 dD 0355 530 pushl r0 ; set return value for exit code 
00000000'GF 01 FB 0357 531 calls #1,g*pli$stop_prog ; execute STO 
04 O35€ 532 5$: ret 3 continue 


-—— 


——_———— 


— plis 


5D 3} f 

6 19 

50 oD 

50 5D 00 

Oc AO 3651~—O 
oe 

7E ~FFSC CF OSE 
8E 10490 01 

* eh 

7E_ FEOO Ck FE 
8E 10 rs D1 

0 13 

10 AO = A7*AF 4 
10 AQ = AG AF 43 
60° 10° 03 3 
8 13 

oc. 


1 38 en 
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Pe al eal eal “al oak @ ah eal al Al Al AL AL AL AL TAL TAL AL TAL ALT AL ALT ALT ALY AL 
DAOC LORNA HT HA ooo 


S25m 


(DU PUPP LVL ULV LULU LVL VIVID DVL DULVIVDIVLULU LULU LUSU VLU VSUSUSVSVS VST USS TST SISTA 


AANA AIA NIAIANIAINI AIAN AAAI AAAI AAAI AAAI AAA AIA 


OOOCOCOCOC COCO OCOCOCO COCO COOCOCOOOOOOCOCOCOOCOoOO 


Ppa > pty te es 
SWMONN OP Onn 


COOOOCOCOOOCOOCOOoOoO 
A.ALA. ALAIN AIA AIAN NIAAA 
Q&S 


yp a Sat 9 Oe: 


; pli$nonloc_goto = non-local goto 
; functional description: 


. at each stack frame that is passed, the 
: ; inputs: 


ew pc 
fp of target frame 
; outputs: 

none 


: ri 

Bt i$nontoc oto: 

pli$goto - : 
*senabl " 
cmp ri,fp : 
bneq 10$ 
jmp (70) 


> this goto is outside this stack frame 


10s: pusht r0 
movl fp,r0 3 


; Schock for proper frame 


50s: cmpl —s 1, stk_l_fp(r 0) 
beql 40$ ; 
movab w* sore _signal,-(sp) 


SOD NA MNES WP 2 CO OD NA NEW 0 OD NA NE WIN 2 O OD NOU EWI 0 OD NOU EW OD OONO 


ee 


O.08009 0909 09. C9 C0 00 0 0D i NIN NN NN NN SP PAD AAA AAD MM EE 


cmpl 238 pc(r0), (sp)+ 
beql 
movab “error etignet: o7(sp) 
cmpl stk. upc (r0),(sp)+ 
beql 
brb 
$3: movab b“unwind refer" »Stk_l _pclr0); 
7$: mov | 3i*) l_fpTr0 3 uf 
propew 2 Bstk_l_pc,(r0) : 
eql fatal error : 
brb 20$ 3 
3; proper frame found 
40$: popl = stk_l_pc(r0) : 
clraq r0 3 
ret ; 


74 AX/VMS 
£99 eierSsis 
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4 :+4 -sbttl pliSnonloc_goto - non-local goto processing 


; This routine is entered via a jmp from a pl! vere when a non-local 
ae occurs. The action is to unwind the call sta 
he unwind is done in a manner similar to that “ot SYSSUNWIND. 


SS$_UNWIND condition is signaled. 


not a call entry 


is this the frame? 
if neq then no 
goto new pc 


save new pc 
copy current fp 


; is the next frame the last? 


if eql then yes 


address normal signal ret addr 
edees this frame point there? 


f eql, yes, special case 


taddress error signal ret addr 
does this frame point there? 


L, yes, special case 


fe 
movab bogenned. return,stk_l -pcir0); hacks return in this module 


force return for signal frame 
nk to next frame on stack 
eel accessible? 

egl then insuff frames 
continue search 


force new pc on return 
force null return arguments 
unwind stack and goto 


ee — 
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4 
6) 


91 ; return control handler 
A 93 unwind signal: 
01 A 4 no different than canned_return; 

A 95 canned_return: 

6D if 7 9 ts 2: Licnd_hnd( fp) ; frame have condition handler? 

2a ~ 9 begl os ; if eql then no 
rn 23 ; signal unwind condition by building stach frame 

7€ 0 7D AB SO6 movg r0,-(sp) ; Save current return args 
51 D 00 at pt mov | fo.ri ; set up call as if called from procedure it 
—E oc 6 movpsl 5s Br i psl 
DS'AF OF 3 ©6604 pushab b*100 ; pc 
00000000'8F DD 6 605 pushl zyetuneine ; build signal args 

03 oD BC 926 pushl # : 
BE 60 3; build mechanism args 

, ae 608 clrq -(sp) : Ala 

7E D4 C 609 clrl -(sp) ; unwind count 

51 dD C 610 pushl i ; target fp 

06 oD O3C4 611 pushl #4 : } 

6— OF bare o1¢ pushab (sp) ; set up exception arg List 

18 AE OF O3CB 61 pushab eh (ep) : 
50 7C QO3CB 614 clrq : input registers 
00 BD O02 FB O3CD 615 calls #2, +4 L_cnd_hnd(fp)  ; ca l handler 
50 24 AE 7D 0301 $18 seve 36(sp),r0™ i; restore value of return 
04 0305 617 1008: ret 3 continue; 
0306 618 -dsabl sb 


| + aaa 


“a 

6D 

52 1D 55 

53 __F4 AD 

5363 

20 

08 AS 

F6 

52 04 A3 1D 03 


06 A3 


plis 


ono - 9 - Oem oO Oo OM oON 
WS FN | WO WNW M MWS 


ondition handler rout ieee 1 
rvet.cnd = revert condition handler 


OM HMMMMMOCOTVVVVVVVTVT VT VT 9T 90909009909 —€7 
SMOKOMD OHV DOP OPAMAAOSPOAAAAOOOAOAD 


GOOCCCGGCOCOCOCOCCOCCOOCOCooO 
SF WAWAIUAI AGNI WN AANA 


Be Oe Be Oe Be Be Oe Oe Oe Oe Be Be Oe Oe Be Oe ee 
+ 


PAARL AAA AA AAA AAAS AA AAO AOAA AAAS OOO AA OD 
NOME WN OOD NA UE WIN 0 OD NAME WN O ODN UE WIN O 


PVPS BB BS BS BB BE ANIA IIA nn honononononen 


a" 
“ 
- 
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-sbttl pli$rvrt_cnd = revert condition handler 


functional description: 


inputs: 


condition enable 


4 


outputs: 


r0,r1 are distroyed. 


pliSrurt_end:: 


r2,-(sp) 

$5§- L_cnd_hnd( fp) 
#3,429,r0,r2 

sth l tend ist(fp),r3 


$08 
cnd_l_addr(r3) 
15$" 


rl gcnd_ l_arg(r3) 
cnd_l_addr(r3) 
15$ 

(sp)+,r2 


pli$rvet_cnd - revert condition handler 


This routine removes a condition handler in the current frame that 
matcns a specified condition value. 


fcb address if file related condition or 0 if not file related 


; gave a register 
; is there a condition handler? 
: if eql then no 
: get condition value less severity 
; address List of control blocks 
: et next block 
: f eql then done 
ype ge 2 
f eql then 


es 
93,829. -cnd_l_enabl(r3), rb: natch 7. this block? 

no 
#<<pLi$_error>a-16>,cnd_ { ~enabls2tr3); pli condition? 


; if neq then no 

: fcb match? 

3; if neq then continue 
; release from use 
:get next block 

; restore 


Page 


—~ 
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++ 
pli$bound_check = range check error subroutine 


659 ; 
660 ; 
661 ; 
rf 666 : functional description: 
4OF 664 ; Th*s routine is entered on a subscript range check. The action is to signal 
rte 902 ; the error. If the users continues program execution is resumed. 
4OF $69 : inputs: 
4OF 668 ; 
tbe 06) 3 O(sp) = address of range check code and return address 
40F 671 ; outputs: 
4OF ore ; 
40F 673; none 
O4O0F 674 ;-- 
944 675 pli$bound_check:: 

B8EDO 040F 976 popl r0 ; get return address 
FB 0412 67 calls #0,b*10$ 3 create a stack frame 
04 0416 678 ret 3 never used 

0000 Bele 679 10$: -word 0 3 
9A 0419 680 movzbl (r0)+,r1 : fetch index in table 
DO 0O41C 681 movl r0,stk_l pet iel 3 zap return address 
DD 0420 oes pushl subscript. tab e(r1] ; 

FB 0425 68 calls #1,g*lib$signal ; 
04 042C 684 ret 
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: 4 ° § r -sbttl pli$resignal - cause resignal of most recent condition 
r ° 8 ; pli$resignal - resignal most recent condition 
: . 24 : functional description: 
42D 036 ; This routine searches the stack for a condition stack frame and if found 
: 4 e37 3 causes that condition to be resignaled. 
42D 695 ; inputs: 
42D O38 ; 
42D $3 5 none 
42D 38 : 
42D +4 3; outputs: 
420 00 ; 
42D 701; none 
42D oe td 
001C 042d 70 -entry pli$Sresignal,“m<r2,r3,r4> 
50 5D 8 O042F 704 3$: mov p.r : search for a condition 
0084 ! 04 ¢ 705 bsbw find_cnd_ap : look for a condition stack 
16 13 046 706 beql 1 : if eql then none 
OC AD 50 D1 0437 707 cmpl rO,stk_l_fp( fp) 3; next fram is the condition fram? 
13 Bete oe beql b*5$ 3: yes, prepare the return address 
10 AD EF AF 9E 0230 fy movab b*3$,stk_l_pc(fp) 3 no. pop fram and keep search 
04 ie ar ret ; return to pli$resignal 
10 AO 4E'AF QE bee 714 5$ movab b*30$,stk_l_pc(r0) ; force return here 
10 AD 4D'AF QE 0448 715 movab b*10$,stk_l_pc( fp) ; force return to here, instead of 
0440 716 ; the caller, so skip the rest of 
0440 717 3; this condition handler 
04 0440 718 10$: ret 
044E 719 ; 
044E 720 ; trapped return 
044E $1 : 
10 AD 8EDO bees 7 ¢ S0s: popl stk_l_pc(fp) 3 restore system's stack key 
04 AD 8EDO 045 as popl stk_l_psl (fp) 3; restore system's psl 
H. D4 0456 724 clr ri ; ; E 
50 00000000'8F DO 0458 725 mov | #ss$_resignal,r0 3; resignal condition 
04 O45F 726 ret 3 continue 
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46 


if 
4 
4 


: -sbttl pliSoncode - get most recent condition name 
pli$Soncode - get most recent condition name 


a 
Oo 


functional description: 


This routine is a built-in-function that returns a fixed bin(31) value 
which is the name of the most recent condition. The object is to 
obtain as much information as possible about the condition. 


Se Ge Ge Se Se Ge Se Ge Se Se He Ge Ge Ge Se Ge Ge 
+ 


136 
$6 
4 1 
16038 
46 734 
46 735 
re, 
rh 7 3 inputs: 
rhe 746 pli stack frame. 
Bes} fog | outa 
8788 ote r0 = condition name value or 0 if no condition is active 
001C beg rs entry pliSoncode,*m<r2,r3,r4> 
50 5D 00 bee eee mov L fp,r0 3; start with this frame 
beee Sy : find the argument List of the last signal 
0081 2 0465 751 © bsbw find_cnd_ap 3; use common routine 
oe Rees P36 beql 50$ : if eql then none found 
Been Pee : begin search for more information 
52 04 A1 00 ee 756° mov chest. igarglst(r1),r2 ; address signal arguments 
53 6 DO O46E 757 108: mov | (r2) i; get count of arguments 
50 O4A DO Bebe 758 mov l chfst. _Sig_name(r2),r ; get actual name 
0000'8F O6 A B1 0475 759 cmpw chf$l_sig_ “name+2ird) oacpl errora-16>; pl1 code? 
3 12 gore 760 bneq 50s ; if neq then return 
00000000 ' 8&F 22 » bees be gapt ch pl is_endfile ; Saer tse Sendis rene 
e 3; yes, return 
00000000 ' 8F i? o pees 768 cmp r0 ,#pli$_endpage ; endpage condi tion? 
e : return 
00000000°8F 35 pi O4BF 765 empl 0, #p Li$_finish : nish condition? 
43 13 0496 766 beql 50 > yes, return 
a POs : the most recent condition was a pli defined condition 
498 £70 : PL/I condition of some sort 
52 04 0 $498 oe : addi #4 ; address first name 
5 0 C2 Rego 77 subl #2,¢r ; remove pc/psl from count 
00000000"8F 6 Di 049 774 208: cmpl (rd) ,#pli$_rmsf 3; rmsf condition? 
1 13° O4A 775 beql 30$ 3; yes, ignore it 
00000000°8F 6 D1 04A7 org cmpl (r2), foli$_rmsr 3 ormsr gendit tent 
1 13 A 77 beql 30$ : yes. ignore i 
00000000 ' 8F ge ft re ore geet 9li$_ioerror 3 oerror condi tion? 
e . yes, ign 
00000000'8F 62 D1 0489 780 + BE, gl Oe ER a 
0 13° 04C 44 beql Os 3 yes, ignore it 
D 4C 7 ¢ mov l (r2),r0 ; Save most recent condition name 
6 C 4C 4 30$: addl hore 3 point past nam 
aCe 4C8 784 subl #2,05 ; adjust count tor name and arg count 


Ne 
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1 cB . ble 30$ ; if args runout then done 
2} D 4C § mov (r2)¢+,r1 : fetch arg count 
f 4D subl ri,r3 ; remove this condition name's args 
4D 7 3 bleq 50 3 done then no more 
52 624 oF 4D 7 moval (r2)Cr1),r2 ; look to next 
C 409 790 brb 20 3 
408 791 50$: ret ; done 
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rt re? sient -sbttl pliSoncndargs - fetch ap of most recent contition 
rt +3 798 ; pli$oncndargs - fetch ap of most recent condition 
ne 199 : functional description: 
40¢ 138 : This routine is a built-in-function that returns a pointer which is the 
40C 0 ; ap of the most recent condition. 
t+ 1; If no condition is active then the pointer returned is null. 
4n¢ 08 : inputs: 
Q4d¢ 05 ; pli stack frame 
4n¢ 0? > outputs: 
143 1 : r0 = return pointer value. 
001C O04DC 11° -entry pliSoncndarg,“*m<r2,r3,r4> 
50 5D 00 OQ4DE \¢ mov l p.r ; start with this frame 
06 19 tt 81 bsbb find_cnd_ap 
tt gi beql 10$ : if eql then none found 
50 51 »A0 Bee 15 movl ri,r0 : return value 
04 ot 518 10$: ret r 
94 3 B18 > subroutine to find the ap of the most recent condition 
Dae9 8 0 ; r0 = fp to start search so that the search may be continued 
04E9 H é tind_cnd_ap: 
51 FDD4 CF 9E O4E9 8 movab wanorn signal ri ; address normal signal 
2g FCBE CF QE pees 4 movab w*error_s gnal r2 ; address error signal 
5 FEAF CF QE O4F 5 movab  wunwind_signal,r3 address unwind signal 
54 FB9C CF 43 ate 6 movab wept iSoptns n_hnd,r4 ; address options main handler 
50 OC AO OD 4FD tH 10$: mov | sf L_fp(r0),r0 ; address next frame 
60 10 03 OD 0501 828 robew #3,¥stk_l_pc,(r0) : frame accessible? 
17 13 0505 4 eql 208 3; if eql then end of stack found 
10 AO 36551) = D1 = 0507 = 830 cmpl ri,stk_l_pc(r0) ; this frame return to the pll handler? 
14 13 O50B 831 beql s if ogt then this is it 
10 AO 52 D1 0500 $36 cmpl r2,stk_l_pc(r0) this frame called by error signal? 
oF 13° 0511 HE beaql sif eql, then this is it 
1040 5 D1 Bats 4 cmpl r3,stk_l_pc(r0) ithis frame called by goto (unwind)? 
oe 13° 051 35 beql ; if eql then this is it 
60 4 01 0519 $$ cmpl r4,stk_l_cnd_hnd(r0) ; this frame's handler the default handler? 
oF 12 O51C bneq 10§ 3; if neq then search ogein 
0 T: ah; 3 20$: clri r0 3 set eql condition codes 
5 05 3 rsb 3; return failure 
51 08 AO 00 0521 40 30$: mov l stk_l_ap(r0),r1 ; address ap of the caller's frame 
be 5 41 3 condition codes also set 
05 0525 42 rsb 3; return 
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onfile - onfile bif support 6-SEP=19 
é rf: aa -sbttl pliSonfile - onfile bif support 
6 46 ; pliSonfile = onfile bif support routine 
: ? ‘3 ; functional description: 
5 9 50 ; This routine returns a character varying string which is the file name 
5 @] ; of the most recent file condition. 
é 38 ; inputs: 
5 55 ; Olap) = 2; 
05 8 36 ; 4 (ap) = size of string 
8 ? : ; 8(2p) = address of the string 
003¢ $8 8 35 ; -entry pliSonfile,“m<r2,r3,r4,r5> 
50 5D 00 B : 9 mov l fp,r0 ; start with this frame 
08 ; bee > look for the next signal 
BC 19 08 B 864 10$:  bsbb find_cnd_ap ; locate the current ap 
42 13 0520 865 beql 0$ : if eql then none 
52 04 Al D0 O52 B06 mov l chf$l_sigarglst(r1),r2 ; check for pli type 
0000'8F 06 - Bi 0533 86 cmpw chf$l-sig_name+2(r2), <pli$_errora-16>; pli type? 
é 12 0539 868 bneq 1 : neg then no - continue search 
00000000°8F 04 A2 1D O03 ED beze 869 cmpzv #3, #29, chf$l_sig_name(r2) ,#<pli$_keya-3>; file type? 
E46 1A 054 870 bgtru 1 ; if no = continue searc 
8 08 Al DO 0547 871 movi chf$l_mcharglst(r1).r2 ; address mechanism arguments 
5 OC A2 0 0548 are mov lL hf$l_mch_savrO(r2),r3 ; fetch fcb address if any 
20 13 O54F 7 beql 0$ 3 if gl then no file name 
51 42 A3 9E 0551 74 movab fcb_b_ident_nam(r3),r1 ; use identifier name 
50 40 A3 3¢€ 0555 75 movzwl fcb_w_ident_len(r3),r0 ; 
16 13 0559 578 beql 30$ : if eql then no name 
04 ac 50 861 3228 877 20S: cmpw r0,4(ap) 3; in range? 
06 15 055F 878 bleq 25 ; if leq then yes 
50 O04 AC 3X 0561 79 movzwl 4(ap),r0 3; get return size 
52 08 AC DO 0565 880 25$: movi 8(ap),r2 ; address target 
82 50 80 Beer 881 movw r0,(r2)+ ; load size 
62 61 50 se B266 aes moves r0,(r1),(r2) ; return string 
re 
08 BC B4 a4 884 308: clrw a8 (ap) ; return null string 
04 0574 885 ret 
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4 7 -sbttl pliSonkey - onkey bif support routine 
f : ; pliSonkey - onkey bif support routine 
2f 4 ; functional description: 
2 38 ; This routine returns the key associated with a key condition 
bee 95 ; inputs: 
7 38 $ 
57 97 ; Olap) = 2; 
57 38 : 4(ap) = size of return string 
57 99 ; 8(e0) = address of the return string 
0575 900; 
TH 901 ; == 
003c 057 O08 -entry pli$onkey,“m<r2,r3,r4,r5> : 
50 5D o00 b307 +t movl fp,r0 ; begin search with this frame 
B2eA 44 ; search for a condition on the stack 
FF6C 30 057A 907 108: bsbw  find_cnd_ap ; find the Last condition ap 
41 13 057d 908 beql 30$ : if eql then no condition found 
52 04 A1 DO OS7F 909 mov chf$l_sigarglst(r1),r2 ; check for pl type 
0000'8F 06 A2 861 0583 910 cmpw chf$l-sig_name+2(r2) ,A<pli$ errora-16>; pll type? 
EF 12 0589 911 bneq $ . 4 neg then no - continue search 
00000000°8F 064 A2 1D O83 ED 0988 g¢ cmpzv #3,#29,chf$l_sig_name(r2) ,#<pli$_keya-3>; key type? 
E3 12 059 91 bneq 10$ : if no = continue searc 
50 08 Al DO 0597 914 mov l chf$l_mcharglst(r1),r0 ; fetch the secondary arguments 
51 OC AO 0598 915 movl hf$l_mch_savrO(r0),r1 ; get fcb address 
1F 135 QS9F 916 beql 0$ : if eql then no key error 
50 10 A0 DO OSA1 917 mov l Gb 7 poh seer (7S) re ; get string address 
19 13 QOSAS 918 beql 0$ ; if eql then none 
5 80 3C O5A7 919 movzwl (r0)+,r1 3; get size of string and address it 
04 AC 51 D1 QOSAA 920 cmpl r1,4(ap) 3 String fit? 
06 15 OS5AE 4 bleq 15$ ; if leq then yes | 
51 O04 Af DO 0580 9 ¢ mov 4(ap),rl 3 use passed max size 
52 08 AC DO O5B4 923 158: mov l 8(ap) ,r2 ; address target 
82 51 B60 0588 ase movw ri,(re)¢ ; insert size 
62 60 51 28 O58B 925 moveS ri,(r0),(r2) 3 return string 
04 OSBF 358 rei : 
08 BC B4 O5CO0 927 30$: clrw a8 (ap) 3; return null string 
04 05¢3 928 ret 


a 
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5 tbO8 pli$to.error ae 95:42:36 LPL IRTL. SREIPLICONDIT.MAR: 1 ° (12) 
C4 0 -sbttl pli$io_error 
54 3 1 3+ a 
te 3 ¢ ; pli$io_error = signal 1/0 related error 
te 3 2 ; functional description: 
5¢4 9 § ; This routine is used by the runtime I/0 routines to signal an error. 
05€4 937 ; inputs: 
05¢4 9 8 3 (ap) - 3or 4 
5C4 (939 ; 4(ap) = condition value 
5€4 (940; 8(ap) - error code 
5(4 941; 12(ap) = fcb addr 
5¢4 ac§ 3 16(ap) = address of onkey value 
05C4 943 ; outputs: 
0504 944 ; the error message organs are pushed on the stack and the 
0504 945 ; condition is signaled. 
0504 946 ;-- 
Bate 947 
OFFC Q5€4 948 entry pliS$io_error,“m<r2,r3,74,75,76,77,r8,79,r10,r11> 
53 D4 0506 949 clrl r set no parms 
52 OC AC DO O5¢8 950 mov | 12(ap),r2 ifcb passed? 
03 12 O5¢C 951 bneq 5$ ;if neq, yes 
009D 31 OSCE 326 brw 100$ sif eql, no 
C A2. 08 CA O5D1 953 5$: bicl #Matr_m_recur,fcb_l_attr(r2) ;clear recursion 
00000000'8F O08 AC D1 0505 954 cmpl 8(ap) ,Apli$_rmsf zrms fab error? 
OA 12 O5DD 955 bneq 10$ sin neq, no 
00B2 C2 DD OS5DF 956 pushl <fcb_b_fab+fab$l_stv>(r2) :push stv 
OOAE C DD OSES 957 ushl <fcb_b_fab+fab$l_sts>(r2) ;push sts 
7¢ 611 «OSE? ) = 958 rb 25$ zcont 
00000000'8F O08 AC D1 OSE9 959 10$: cmpl 8(ap) ,#pli$_rmsr zrms rab error? 
0 12 OSF1 960 bneq 208 ;if neq, no 
6E A DD OSF3 961 pushl <fcb_b_rab+rab$l_stv>(r2) push stv 
6A A2 DD b2e8 236 ushl <fcb_b_rab+rab$l_sts>(r2) ;push sts 
OA 11 O5F9 96 rb 258 cont 
08 AC DS O5SFB 964 208: tstl 8 (ap) serror code specified? 
08 13 OSFE 965 beql 30$ :if eql, no 
00 DD 0600 966 pushl #0 set no fao args 
08 AC ODD pote 967 pushl 8(ap) s;set error code 
53 O¢ CO 060 968 $s addl #2,°3 jugdege parm count 
3—€ OC A211 0 0608 969 30$ bbs #atr_v_string,fcb_l_attr(re2) ,37$ 
54 00F9 Ce A 0600 970 movzbl <fcb_b_nam+nam$b_rsT>(r2).r4 ;get length of rsa 
0 12 0612 971 bneq 31$ ;if neq, 
54 0101 C2 9A 0614 3f§ movzbl <fcb_b_nam+nam$b_esi>(r2) .r4 sget length of esa 
i 13 0619 97 beql  35$ :if eql, con 
O12E C 9F O61F 974 318: pushab fcb_b_esa(r2) sset expanded string addr 
7E 54 DO O61F 975 movl r4,-(Sp) set len 
02 dD 0622 ars pushl #2 : ;set number of fao args 
sed: wa DD 0624 97 pushl Solis filenane set message 
5 04 0 38 A af8 addl #4,73 supdate parm count 
$6 A F 062D 979 35$: pushab feb_b_ ident _nam(r2) ;set up file name descr 
7E 40 A2 3C 0630 980 movzwl fcb-w-ident~len(re),-(sp) ; 
8 DD 0634 981 pushl a zset number of fao args 
53 co 8036 Ht addl #3,73 ' supdate parm count 
00000000'8F 04 AC D1 0639 9 cmpl 4(ap) ,#@pli$_error serror condition? 
oe 12 0641 984 bneq 40$ if neq, no : 
00000000°8F DD 0643 985 pushl opt 18, teorrer zset io error to print file name 
53 D6 0649 986 incl r jsupdate parm count 
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5 tb08 pli$io_error ~SEP=19 1984 4: 3g: 4 PLIRTL.SRCIJPLICONDIT.MAR; 1 ’ (1) 
99 DD 4B th 37$: pushl # set number of fao args for error 
D6 4D i nel r supdate, parm Geynt 
04 ag DD 4F 40$: ushl 4(ap) set pl! condition 
5 D6 0652 90 nel r3 jsupdate parm count 
50 OC AC DO 0654 991 movl 12(ap),r0 set fcb addr 
51 04 0658 336 clrl ri :zap other argument 
06 6C D1 QO65A 99 cmpl Lap) #4 senkey passed 
04 is 65D 994 bneq 50 zif neq, no, cont 
> ae ag D 65F 995 mov l te ap? rl geet onk ey address 
00000000'GF 5 FB 663 936 50$ calls r3,g*lib$signal isignal the condition 
oe ee 66A 99 movl #1,r0 senuf messages 
04 66D 44 ret return 
00 DD 8 999 1008 pushlt #0 set no fao args 
08 AC DD 06 1000 pushl 8(ap) set error code 
00 DD 06735 1001 pusht #0 sset no fao args 
04 AC D bee 1006 pushl 4(ap) sset error condition 
50 C 0678 100 clrq r0 $ sset no secondary arguments 
00000000'GF 04 FB porn 1004 calls #4,g*lib$signal :signal error 
50 01 DO 0681 1005 mov! #1, : 
04 0684 1006 ret 3 
0685 1007 
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routine is the condition handler for pt eet tits and pii$putfile. 
jsb'd to from an entry mask that Lies within the file control 
This vectoring is necessary, in order to get the address of the 


ontrol block. After ceteulaeing the address of the file control 
0 


o-o 


$ 

k. 

c 

k, this routine clears the recursion bit in it, so i/o may be performed 
he file in the users on-unit. Finally, it sets the return address 

for the frame of the get or put to be the address of a return statement 


$ 
$ 
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inputs: 
O(sp) - address of byte following jsb instruction in fcb. 


$stream_hnd 
outputs: 
none 


v #ss$_resignal,r0 ;assume yp dt am 
subl3 #fcb_l_cndaddr+4,(sp),r2 get fcb address 
bbcc #atr virecur,fcb_l_attr(ré -30$ ;clear recursion bit 
movab fcb_U_Condit(r2)7(Sp)  ;get addr of handler 
mov l fp,r2 start with this frame 
10$: mov l suk L_fp(r2),r2 saddress next frame 
robew #3,¥stk_l_pc,(r2) iframe accessible? 
eql 30§ :if eql then end of stack found, return 
cmpl (sp),stk_lcnd_hnd(r2) ;this frame's handler us? 
bneq 10 zif neq, no, look at next frame 
elrl stk l_cnd_hnd(r2) swe aren't needed anymore 
movl chf$t_sigarglst<gp) .r2 address arg list 
mov l chf$l_sig_argsir2).r1  ;if exception handled force 


scontinuation at establisher's saved pc 


cmpl chf$l_sig_name(r2) ,#ss$_roprand;check for roprand 
bneq 20$ if neq, resignal 
pushl stk_l_pc(fp) save system pc/psl 
pushl stk_l_psl(fp) $ 
movl chtst_sig_args 4 (r2) Crt] -stk.l pe (fp) sset original pc/psl 
movl chf$l_sig_args(r2)Cril,stk_l_psl(fp) ; 
pysbl oot te .cnverr set conversion error subcode 
r =(s 3 
eyes $_error set error condition code 
clr r ; 
calls #3,g*libSsignal sand signal pli error 
movzbl #ss$_continue,r0 scontinue after the stream 1/0 statement 
popl stk_T_psl (fp) srestore system pc/ps 


popl stk_l_pc(fp : 

mov l chf$l-sig_args(r2).r1  ;if exception handled force 
scontinuation at establisher's saved pC 

movab 30$,chf$l_sig_args-4(r2)Er1); (execute a ret upon continuation 


20$: 


30$: ret sreturn 
ushl = stk_l_pc(fp) ;save system pc/psl 
Busht stk (“pst (fp) ; ' . : 
mov chf$l"sig_args-4(r2)Cri},stk_l_ Gi fp) sset original pc/psl 
et Fi chfSt_sig_args(r2) rij ,stk_l_psl(fp); 
pus r 


dD 1 
008 | jag "SSEp=198e 99:58:38 EBLINTL. SRESPLI CONDI r.man:1 °9 (92) 


2} o¢ cs ror. $6 subl #2,9r 
D 71A 106 movl ri,er 
A? bp 4 } oe 258: push s chf$l_sig_args(r2)(r1] 
0 
0 04 Ag 93 EF 07 1 19 oxtie W0:4 eentsl 33'9- name(r2),r0 
illo Ta: eee: ach 
00000000 ' GF eb f 6 : 73 ot r3,9° ‘asioll 
AR Se ie BEL best ati 
50 OO'8F 9A rs 1 ig movzbl #ss$ Sent inue. r0 
FC A261 —00000752"EF bE OFE8 1099 meh My 0098 (62) ott et 
, mova of - 
06 9759 Tabb ie tees . 
07535 1081 end 
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Symbol table 4 11:36: PLIRTL.SRCIJPLICONDiT.MAR; 1 
D = FINISH _SIGNAL_RETURN ie R 08 
ATR_M_RECUR = HARDWARE _ TABLE 0 R 
ATR_V_RECUR = INTOVF = 0000000 
ATR_V_STRIN = LIBSSIGNAL aeenenee =X 02 
CANREB_RETU NAM$B_ESL = 000000 3 
CHF $L_ACHARGLST = 8 NAMSB_RSL = B08 0 
CHFSL-MCH_ = 4 NORM_EX 0018D R 0 
CHF SL_MCH_SAVR = f NORM_ SIGNAL BROKE ee R 0 
CHF SL_MCH_SAVR1 = 1 PLISSSTREAM_HND 0000685 RG 0 
CHF SL_SIGARGLST = 04 PLISSTERM_PROG aeeneeee =X 0 
CHF SL_SIG_ARGS = 8 PLISBOUND CHECK O00040F RG 2 
CHFSL_SIG_NAME = 4 BL ISCND HRD BERR GE RG § 
CND_K_LENGTH 14 PLiSDEF _HND ° C RG 
CND_L_ADDR 08 PLI$GOT QOOOOSSF RG 02 
CND_L_ARG oc PLI$IO_E HAS RG 02 
CND_L_ENABL 04 PLISNORLOC_GOTO QOOO35F RG 02 
CND_L_FLAGS 10 PLISNON_OC RE 00000330 RG 02 
CND_L LIN 00 PLISONCNDAR 4 eee RG 02 
DEF_HND_C 9E R LISONCOD 0000460 RG 02 
END-OF _PAGE OF R PLISONF ILE 000005 g RG 02 
ERROR_SIGNAL 80 R PLISONKEY 00000575 RG 02 
FABSL_STS 08 PLISOPTMAIN_HND 00000098 RG 02 
FABSL_STV f PLISOPTMAIN_RET 0000034C RG 02 
FATAL_ERROR R PLISPUTFILE_R6 eeeeenee =X 02 
FATAL_EXCEPTION 321 R PUT_END_R6 eeeneeee =X 02 
FCB_B_ENVIR 1C2 PLISRESTGNAC 0000042D RG 02 
FCB_B_ESA ¢f PLISRVRT_CND 000003D6 RG 8S 
FCB_B_EXTRA D PLIS$STOP-PROG aeeeeeee =X 0) 
FCB_B_FAB 6 PLI$_ANYCOND eeeeneee = X 02 
FCB_B_IDENT 040 PLIS_CNVERR aeeeeeee XX 02 
FCB_B_IDENT_NAM 2 PLIS_ENDF ILE weeeenee XX 02 
FCB_B_NAM 6 PLI$_ENDPAGE weeneeee = X 02 
FCB_B_NUMKCBS C PLIS_ERROR teeneere XX 02 
FCB_B_RAB § PLIS_F ILENAME aeeeeeee = X 02 
FCB_C_LEN PLIS$_FINISH eeenenee =X 02 
FCB_C_STRLEN 4 PLI$_IOERROR weeeeeee KX 02 
FCB-L_ATTR C PLIS_KEY aeeeeeee xX 02 
FCB_L_BUF 4 PLIS_RMSF eeeeeene xX 02 
-| FCB_L_BUF _END B PLIS"RMSR aeeeeeee X 02 
FCB_L_BUF _PT C PLI$_SUBRANGE aeenenee = X 02 
FCB-L_CNDADDR 2 PLI$~SUBRANGE 1 eeeeeeee x 0g 
FCB-L-CONDIT F PL1$" SUBRANGE eeeeeeee§ X 0 
FCB_L_OTTR PLI$_SUBRANGE eeeneeee = X 0 
FCB_L_ERROR : PLI$_SUBRANGES eeeeeres = X 0 
FCB_L_KCB PLI$_SUBRANGES aeeeeeee =X 0 
FCB-L_NEXT 0 PL1$— SUBRANGE aeeeneee X 0 
FCB_L_PREVIOUS 4 PLI$_SUBRANGE aeeeeneee = X 0 
FCB_L_PRN 4 PLI$_SUBRANGES aeneeeee =X 0 
FCB-Q-RFA 9 PLIS~SUBSTR teeeeere X 0 
FCB_W_ COLUMN PLI$_SUBSTR eeanreeee =X 0 
FCB_W_IDENT_LEN PLI$ ZERODIV aeeneeee = X 0 
FCB_W_LINE RABSC_STS = 00000008 
FCB_W_LINESIZE A RABSL_STV = ByeK 
F CBW" PAGE 2 SEARCA_CND_LIST 1CB R 03 
F CB-W~PAGESIZE SIGNAL-ERROR 4 DR 0 
FCB W REVISION TF = 00000001 
F INB_CTND_AP SS$_ACCVIO eeeneree =X 02 
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Symbol table on $p=]9be 07:48:48 EBLIRTL. SRCIPLICONDIT .MAR:1 os his 
SS$_ CONTINUE eereeeee 8 =X 
SS$_DEBUG eeeeeeee 8X 
SS$_DECOVF eeeeeeee = §8§6X 
SSS_FLIDIV eenerere 86 6X 
SSS_FLIDIV_F eeeereee 8 6X 
SS$_FLTOVF eeeneere 6X 
SS$_FLTOVF _F eeeeenee 
SS$_FLTUND eeeneeee 8 6X 
SS$_FLTUND_F eeeeeeee §6X 
SSS_INTDIV eeneeeee 86 6X 
SS$_INTOVF eeeeeeee = = =X 0 
SS$_OPCCUS eeeeeeee 8X 8 
SS$_OPCDEC eeeenere 8X 
.RADR geeereee x 0 
SS$_RESIGNAL eenereee = =X 0 
_ROPR Reeeeeee x 0 
SS$_SUBRNG eereneee =X 0 
_UNWI eeekeene x 0 
LAP 0000000 
STK-L-ARG_LIST FFFFFFF é 
_L_CND_HND 00000000 
STK_L_CND_LST FFFFFG 
STK_L =DISPLAY FFFFFC 
STK_L_FP 0000000C 
STK_L_PC 00000010 
STK_L_PSL 000004 
STK_L_REGS 00000014 
SUBSCRIPT_TABLE 00000000 R 02 
SY XIT eeeteeee 6X 02 
UNWIND SIGNAL 00003A6 R 02 
ZERODIV 0000000 
. eeeeoecoeoccccees + 
; _Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. * 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL oo NOEXE NORD oe? NOVEC BYTE 
SABSS FFFFFFF ( 0.) O1¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_PLISCODE 00000753 ( 1875.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
toe ee ee eee eee eee cee ew emo a$ 
; Per formance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 13, :00:00.07 0: 0: 2.15 
Ty processing a6 :00: “of f : 24 
Syabol table sort 00:01. 0 :00: 2: 8 
189 :00: 9 3: 09.34 
ae E table output 17 :00:00.1 :00:00.31 
Psect synopsis output :00: 8 : 09 
Cross-reference output :00. 00 
Assembler run totals 53 :13.6 6 
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VAX-11 Macro Run Statistics 


The working eet Limit was 1350 pages. 

533571 bytes (105 pages) of virtual memory were used to buffer the intermediate code. 

{here were 40 pages of symbol table space allocated to hold 715 non-local and 75 local symbols. 
1081 source Lines were read in Pass 1, produc ing 43 object records in Pass 2. 

19 pages of virtual memory were used to define 18 macros. 


$¢eeesce on me tera n een ae mre ee nan} 


: 
$m w eee ee smn scene sense oeeeoceee 


Macro Library name Macros defined 


~$255$DuA28: PLIRTL.OBJJPLIRTMAC.MLB; 1 5 
$255$DUA28: (CSYSLIBJSTARLET.MLB;2 10 
TOTALS (all Libraries) 15 


695 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
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